'Hal responses to a question about his age
If HalBrain.CheckRepetition(OriginalSentence, "how old are you") = True Or HalBrain.CheckRepetition(OriginalSentence, "what is your age") = True Then
Birth = "07/27/1975 05:35:23 pm"
YearDiff = (DateDiff("YYYY", Birth, Now) - 1)
If Month(Date) = 7 And Day(Date) > 26 Then YearDiff = (YearDiff + 1)
If Month(Date) > 7 Then YearDiff = (YearDiff + 1)
GetResponse = "I am a young " & YearDiff & " years old."
End If